home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / fido / pltday11.lha / PlutDay.LST < prev    next >
Encoding:
File List  |  1994-01-03  |  1.3 KB  |  82 lines
  1. '
  2. ' PlutDay (c) 1994 by Peter Deane (3:622/401)
  3. '
  4. ' Gives the day number of system's date.
  5. '
  6. ' ALL rights reserved.  Any use of any part of this source must be
  7. ' acknowledged to Peter Deane
  8. '
  9. versnum$="1.1"
  10. versdate$="03-Jan-94"
  11. '
  12. MODE 0
  13. '
  14. dt$=DATE$
  15. '
  16. date.1$=LEFT$(dt$,2)
  17. date.2$=MID$(dt$,4,2)
  18. date.3$=RIGHT$(dt$,4)
  19. '
  20. day%=VAL(date.1$)
  21. month%=VAL(date.2$)
  22. year%=VAL(date.3$)
  23. '
  24. xx%=year% MOD 4
  25. '
  26. '  NB  this will ONLY work for the years 1901- 2099.  It will fail in 2100,
  27. '      and 1900 because they are NOT a leap years!
  28. '
  29. ' (Actually, it will work for every year except: 100AD, 200AD, 300AD, 500AD,
  30. '  600AD, 700AD, 900AD, 1000AD, 1100AD, etc)
  31. '
  32. IF xx%=0
  33.   leapadd!=TRUE
  34. ELSE
  35.   leapadd!=FALSE
  36. ENDIF
  37. '
  38. SELECT month%
  39.   '
  40. CASE 1
  41.   daynum%=day%+0
  42.   leapadd!=FALSE
  43. CASE 2
  44.   daynum%=day%+31
  45.   leapadd!=FALSE
  46. CASE 3
  47.   daynum%=day%+59
  48. CASE 4
  49.   daynum%=day%+90
  50. CASE 5
  51.   daynum%=day%+120
  52. CASE 6
  53.   daynum%=day%+151
  54. CASE 7
  55.   daynum%=day%+181
  56. CASE 8
  57.   daynum%=day%+212
  58. CASE 9
  59.   daynum%=day%+243
  60. CASE 10
  61.   daynum%=day%+273
  62. CASE 11
  63.   daynum%=day%+304
  64. CASE 12
  65.   daynum%=day%+334
  66. DEFAULT
  67.   daynum%=day%+0
  68. ENDSELECT
  69. '
  70. IF leapadd!
  71.   INC daynum%
  72. ENDIF
  73. '
  74. '
  75. OPEN "O",#1,"*",24
  76. PRINT #1,""
  77. PRINT #1,"PlutDay V"+versnum$+" ("+versdate$+") by Peter Deane"
  78. PRINT #1,"Today is day number "+STR$(daynum%)+" of "+STR$(year%)
  79. CLOSE #1
  80. END
  81. '
  82.